---
title: "Enchentes"
output:
flexdashboard::flex_dashboard:
orientation: rows
social: menu
source_code: embed
---
```{r setup, include=FALSE}
install.packages("flexdashboard")
install.packages("DT")
install.packages("leaflet")
library(knitr)
library(leaflet)
library(flexdashboard)
library(DT)
url <- "http://datasets.flowingdata.com/ppg2008.csv"
nba_players <- read.csv(url, row.names = 1)
```
### Stats by Player {data-width=650}
```{r}
library(leaflet)
leaflet() %>%
addTiles() %>%
addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R")
```
### Top Scorers {data-width=350}
```{r}
knitr::kable(nba_players[1:20,c("G", "MIN", "PTS")])
```